home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Book / abrasionsimul.lsp < prev    next >
Text File  |  1990-10-11  |  198b  |  9 lines
  1. ; book p.52
  2.  
  3. (require "data/tutorial")
  4.  
  5. (def h (histogram abrasion-loss))
  6. (dolist (i (order hardness))
  7.         (send h :point-selected i t)
  8.         (pause 10)
  9.         (send h :point-selected i nil))